﻿Public Partial Class Overview
    Inherits BaseUserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            Rebind()
        End If
    End Sub

    Public Overrides Sub Rebind()
        Try
            RolesCount.Text = "Roles Count: " & Utility.GetString(Roles.GetAllRoles.Length)
            UsersCount.Text = "Users Count: " & Utility.GetString(Membership.GetAllUsers.Count)
            OnlineUsersCount.Text = "Online Users Count: " & Utility.GetString(Membership.GetNumberOfUsersOnline)
        Catch ex As Exception
            Me.RaiseError(ex)
        End Try
    End Sub

    Private Sub Page_OnUpdate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.OnUpdate
        Rebind()
    End Sub

End Class